home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacPerl Source ƒ / Perl5 / lib / tainted.pl < prev    next >
Encoding:
Text File  |  1995-03-20  |  216 b   |  12 lines  |  [TEXT/MPS ]
  1. # This subroutine returns true if its argument is tainted, false otherwise.
  2.  
  3. die "tainted.pl not (yet) implemented on the Mac";
  4.  
  5. sub tainted {
  6.     local($@);
  7.     eval { kill 0 * $_[0] };
  8.     $@ =~ /^Insecure/;
  9. }
  10.  
  11. 1;
  12.